<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.lor</name>
<id>-1</id>
<cardCount>5</cardCount>
<cardID>5265</cardID>
<listID>6589</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>global lastCardglobal lastBookglobal lastBookNon resumeStackdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"end resumeStackon openCard-- lock screenSend colorMe to this cardpass openCardunlock screenend openCardon doMenu menuItemif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainelse if menuItem is "Gallery" thenWTIgalleryelse if menuItem is "Explorer" thenWTIexploreelse if menuItem is "Credits" thenWTIcreditselse if menuItem is "Encyclopedia" thenWTIencyclelse if menuItem is "Languages" thengo to card 1 of stack "Guinness:mac:language samples" in a new windowelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Quit Encyclopedia" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenuon WTIcreditsgo to card 1 of stack "Guinness:Mac:16in Credits"end WTIcreditson closeCardglobal LastCardglobal lastBookglobal lastBookNput "Guinness:Mac:16in Explorer" into lastBookput the number of this card into lastCard-- put "go to card " & lCard & " of stack guinness:mac:explorer" into LASTCARD-- put lastCardset cursor to 4lock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon openStacklock screenset lockscreen to trueAddColor installdisable menuItem "Print Text" of menu "File"disable menuItem "Print Image" of menu "File"enable menu "Edit"enable menu "Go"disable menuItem "Copy Text" of menu "Edit"disable menuItem "Copy Image" of menu "Edit"pass openStackset lockscreen to falseend openStackon closeStackAddColor removepass closeStackend closeStackon keyDown whichKey-- put whichKeypass keyDownend keyDownon appleEvent class, id, sender-- put classpass appleEventend appleEventon commandKeyDown whichKeyglobal stopAction-- put whichKeyif whichKey = "." thenput 1 into stopActionelsepass commandKeyDownend ifend commandKeyDownon WTInextgo to nextend WTInexton WTIpreviousgo to previousend WTIpreviouson WTImaingo to card 1 of stack "Guinness:Mac:16in Main"end WTImainon WTIhelpgo to card 1 of stack "Guinness:Mac:16in Help"end WTIhelpon WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIexplorego to card 1 of stack "Guinness:Mac:16in Explorer"end WTIexploreon WTIgallerygo to card 1 of stack "Guinness:Mac:16in Gallery"end WTIgalleryon WTIencyclgo to card 1 of stack "Guinness:Mac:16in Encyclopedia"end WTIencyclon WTIgoback-- put recentgo to recent cardend WTIgobackon WTIgotoDashPage dCardNput char 1 to 3 of dCardN into ppput "p" & dCardN into pppif last char of ppp is return thendelete last char of pppend if-- put pp && pppif pp < 74 thengo to card ppp of stack "Guinness:MAC:Nature:16in Nature"else if pp < 106 thengo to card ppp of stack "Guinness:MAC:Earth:16in Earth"else if pp < 198 thengo to card ppp of stack "Guinness:MAC:Living:16in Living"else if pp < 252 thengo to card ppp of stack "Guinness:MAC:Human:16in Human"else if pp < 302 thengo to card ppp of stack "Guinness:MAC:World:16in World"else if pp < 358 thengo to card ppp of stack "Guinness:MAC:Technology:16in Technology"else if pp < 456 thengo to card ppp of stack "Guinness:MAC:History:16in History"else if pp < 498 thengo to card ppp of stack "Guinness:MAC:Religion:16in Religion"else if pp < 566 thengo to card ppp of stack "Guinness:MAC:Arts:16in Arts"else if pp < 600 thengo to card ppp of stack "Guinness:MAC:Music:16in Music"else if pp < 656 thengo to card ppp of stack "Guinness:MAC:Language:16in Language"elseanswer "Sorry, Countries of the World is not available here."end ifend WTIgotoDashPageon WTIgotopage CardN-- go to card CardN-- answer "go to card # " & CardN && "not in yet!"-- put CharToNum(CardN) into pp-- fix itput trunc( ((CardN)/2) ) * 2 into pp-- if pp -- make sure is even!!!if pp < 10 then -- pad with 000's--put NumToChar(pp) into xput "p00" & pp & "-1" into pppelse if pp < 99 then-- put NumToChar(pp) into xput "p0" & pp & "-1" into pppelse-- put NumToChar(pp) into xput "p" & pp & "-1" into pppend if-- put CardN && pp && ppp && char 2 to 6 of pppif last char of ppp is return thendelete last char of pppend ifif pp < 74 thengo to card ppp of stack "Guinness:MAC:Nature:16in Nature"else if pp < 106 thengo to card ppp of stack "Guinness:MAC:Earth:16in Earth"else if pp < 198 thengo to card ppp of stack "Guinness:MAC:Living:16in Living"else if pp < 252 thengo to card ppp of stack "Guinness:MAC:Human:16in Human"else if pp < 302 thengo to card ppp of stack "Guinness:MAC:World:16in World"else if pp < 358 thengo to card ppp of stack "Guinness:MAC:Technology:16in Technology"else if pp < 456 thengo to card ppp of stack "Guinness:MAC:History:16in History"else if pp < 498 thengo to card ppp of stack "Guinness:MAC:Religion:16in Religion"else if pp < 566 thengo to card ppp of stack "Guinness:MAC:Arts:16in Arts"else if pp < 600 thengo to card ppp of stack "Guinness:MAC:Music:16in Music"else if pp < 656 thengo to card ppp of stack "Guinness:MAC:Language:16in Language"elseanswer "Sorry, Countries of the World is not available here."end ifend WTIgotopage-- added by John Fraedrich-- 5-18-95-- to find a global search stringon lookforit curStackglobal searchstring, oldCardNum, allDone, ansFindAgainglobal searchTypeput 0 into allDoneput 0 into oldCardNumrepeat while ansFindAgain is not "Done"if searchstring is not empty then-- put "find" && searchType && searchstringfind searchType searchstring in bg field "Text"if the result is "Not Found" thenput "Not Found" into ansFindAgain -- OK cancels loopexit repeatelse-- put Name of Cardput number of this Card into newCardNumif newCardNum <= oldCardNum thenput 1 into oldCardNum-- put "EXIT REPEAT" && newCardNumexit repeatend if-- set lockMessages to falseunlock screenunlock screenset lockScreen to falseSend colorMe to this cardput searchstring into tsearchStrAnswer "Found '"&searchstring&"'."&return&&return&"Find '"&searchstring&"' Again?" With¬"Done" or "Find Next"put it into ansFindAgain -- Done forces Failure of Loopif it = "Done" thenput 1 into allDoneexit lookforitend ifput tsearchStr into searchstring-- put searchstringlock screenput newCardNum into oldCardNumgo to next cardend ifelseput "null" into ansFindAgainexit repeatend ifend repeatend lookforiton findGlobalStringglobal saveChecksglobal searchTypeglobal searchstring, oldCardNum, allDone,ansFindAgainask "Enter a word/phrase to find: " with searchstringif the result is not "Cancel" then-- set cantAbort of this stack to trueput it into searchstringput "Find Next" into ansFindAgainput "Guinness:mac:" into sPathif hilite of button ID 74 = true thenput " word " into searchTypeelse if hilite of button ID 73 = true thenput empty into searchTypeelseput " chars " into searchTypeend iflock screenput empty into saveChecksrepeat with k = 1 to 11if hilite of button ID (58 + k) = true thenput numToChar(64 + k) into xmoreput saveChecks & xmore into saveChecksend ifend repeat-- put saveChecksrepeat with k = 1 to 11-- put "Find Next" into ansFindAgainif numToChar(64+k) is in saveChecks thenif k = 1 thenput "Nature" into cStackelse if k= 2 thenput "Earth" into cStackelse if k= 3 thenput "Living" into cStackelse if k= 4 thenput "Human" into cStackelse if k= 5 thenput "World" into cStackelse if k= 6 thenput "Technology" into cStackelse if k= 7 thenput "History" into cStackelse if k= 8 thenput "Religion" into cStackelse if k= 9 thenput "Arts" into cStackelse if k= 10 thenput "Music" into cStackelseput "Language" into cStackend ifunlock screenunlock screenunlock screenput "Searching:" && cStack into card field "Search Progress"lock screenput sPath & cStack & ":16in " & cStack into curStack-- put curStack && ansFindAgain && searchstring && searchTypeput 0 into oldCardNum-- set lockMessages to truego to card 1 of stack curStackput 0 into allDonelookforIt curStackif allDone = 1 thenexit findGlobalStringend ifif ansFindAgain is "Done" thenexit repeatelsego to card 5 of stack "Guinness:mac:16in Explorer"end ifend ifend repeat-- set cantAbort of this stack to falseend if-- put "OUT NOW"-- set lockMessages to falseif ansFindAgain is "Not Found" thengo to card 5 of stack "Guinness:mac:16in Explorer"answer "Text Not Found: '" && searchstring && "' " ¬with "OK"end ifput empty into card field "Search Progress"unlock screenend findGlobalString-- on xfind-- repeat while ansFindAgain is "Find Next"-- if searchstring is not empty then-- lock screen -- look here to delete if no work-- find searchstring in bg field "Text"-- if the result is "Not Found" then-- answer "Text Not Found: '" && searchstring && "' in " && curStack ¬-- with "OK"-- put it into ansFindAgain -- OK cancels loop-- else-- put Name of Card-- put number of this Card into newCardNum-- if newCardNum <= oldCardNum then-- put 1 into oldCardNum-- exit repeat-- end if-- unlock screen-- visual effect wipe left-- Answer "Found '"&searchstring&"'."&return&&return&"Find '"&searchstring&"' Again?" With¬-- "Done" or "Find Next"-- put it into ansFindAgain -- Done forces Failure of Loop-- if it = "Done" then-- put "Yes" into xDone-- exit xFind-- end if-- lock screen-- put newCardNum into oldCardNum-- go to next card-- end if-- else-- put "null" into ansFindAgain-- end if-- end repeat-- end xfind</script>
